﻿Namespace Geometry
    Public Class Circle
        Private _center As New Point3d
        Private _radius As New Double

        Public Property center() As Point3d
            Get
                Return _center
            End Get
            Set(value As Point3d)
                _center = value
            End Set
        End Property

        Public Property radius() As Double
            Get
                Return _radius
            End Get
            Set(value As Double)
                _radius = value
            End Set
        End Property

        Public Sub New()
            center = New Point3d()
            radius = 0
        End Sub
    End Class
End Namespace


